home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D01.D64 / memory scanner (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.0 KB  |  97 lines
  1. 4 REM **************************
  2. 5 REM ***** MEMORY SCANNER *****
  3. 6 REM *****       BY       *****
  4. 7 REM *****   LEE BAMBER   *****
  5. 8 REM **************************
  6. 10 A=A+1:IF A=1 THEN LOAD"SPR.",8,1
  7. 20 PRINT"[147]":POKE 53280,0:POKE 53281,0
  8. 30 READ A,B$
  9. 35 IF A=1001 THEN PRINT:PRINT:GOTO 100
  10. 40 PRINT"":PRINT TAB(A);B$
  11. 50 FOR T=0 TO 50:NEXTT
  12. 60 GOTO 30
  13. 100 PRINT"  [212]HE MEMORY SCANNER IS VERY SIMPLE TO"
  14. 101 PRINT" USE AS ALL THE NECESSARY INSTRUCTIONS"
  15. 102 PRINT" ARE ON THE ACTUAL SCREEN DISPLAY"
  16. 103 PRINT" ALL THE TIME. [212]HE PROGRAM IS IN [194][193][211][201][195]"
  17. 104 PRINT" BUT THE USES OF THIS ROUTINE COVER A"
  18. 105 PRINT" LARGE RANGE:-   [198]OR INSTANCE YOU COULD"
  19. 106 PRINT" LOOK, AT YOUR LEISURE, WHERE YOUR"
  20. 107 PRINT" [194]ASIC PROGRAM IS IN MEMORY, OR LOOK AT"
  21. 108 PRINT" OTHER PEOPLES PROGRAMS TO SEE IF YOU "
  22. 109 PRINT" CAN SEE ANY WORDS OR NUMBERS THEY "
  23. 110 PRINT" USED. [212]HIS IS VERY HANDY FOR LOOKING"
  24. 111 PRINT" AT ADVENTURE GAMES TO SEE IF THERE "
  25. 112 PRINT" ARE OBJECTS OR PEOPLE YOU HAVEN'T COME"
  26. 113 PRINT" ACROSS BEFORE.      "
  27. 115 PRINT:PRINT"        PRESS SPACE[146] TO CONTINUE"
  28. 200 GET A$:IF A$=""THEN GOTO 200
  29. 250 PRINT"[147]"
  30. 255 PRINT" [212]HE SCREEN DISPLAY IS SET OUT AS"
  31. 256 PRINT" SHOWN BELOW IN [198]IG 1."
  32. 257 PRINT
  33. 258 PRINT" [198]IG.1.
  34. 259 [153]"SYS"
  35. 260 [153]"                                        WAIT"
  36. 261 [153]"ON WAITF1-FORWARD F3-BACKWARD F5-FIND F7-QUIT WAIT"
  37. 262 [153]"ON                                        WAIT"
  38. 263 [153]""
  39. 265 [153]" ASCORWARD - (null)HIS MOVES 839 BYTES AT ONE"
  40. 266 [153]" TIME FOR YOU TO VIEW THE WHOLE OF THE"
  41. 267 [153]" MEMORY IN SECTIONS.
  42. 268 PRINT" [194]ACKWARD - [212]HIS MOVES TO THE LAST "
  43. 269 PRINT" SECTION OF MEMORY YOU HAVE VIEWED TO"
  44. 270 PRINT"[160]SEE WHAT YOU HAVE MISSED."
  45. 271 PRINT" [198]IND - [212]HIS UTILITY WITH THE AID OF A"
  46. 272 PRINT" CHARACTER FINDER WILL TELL THE"
  47. 273 PRINT" USER WHAT MEMORY LOCATION THE CHAR."
  48. 274 PRINT" FINDER IS AT THAT MOMENT LOOKING. [211]EE "
  49. 275 PRINT" FIG.2. FOR VIEWING OF CHARACTER FINDER"
  50. 276 PRINT
  51. 277 PRINT"        PRESS SPACE[146] TO SEE FIG.2.
  52. 300 [161] A$:[139]A$[178]""[167] [137] 300
  53. 350 [153]"LOAD"
  54. 355 [153]" FIG.2.
  55. 356 PRINT"
  56. 357 [153]" (null)EE HOW THE CHARACTER FINDER HAS ITS
  57. 358 PRINT" OWN WINDOW TO LOCATE THE CHARACTERS.
  58. 359 [153]
  59. 360 [153]"      WAIT"
  60. 362 [153]"  WAITATN   WAIT"
  61. 364 [153]"  WAIT    WAIT"
  62. 366 [153]"  WAIT    WAIT"
  63. 370 [151] 53269,1:[151] 53276,1:[151] 53275,0:[151] 53248,40:[151] 53249,106
  64. 372 [151] 53287,12:[151] 53285,11:[151] 53286,1:[151] 2040,160
  65. 375 [129] A[178]106 [164] 150:[151] 53249,A:[130]A
  66. 380 [129] C[178]40 [164] 200:[151] 53248,C:[130]C
  67. 382 B[178]150:[129] A[178]100 [164] 150:B[178]B[171]1:[151] 53249,B:[130]A
  68. 384 [129] A[178]100 [164] 150:[151] 53249,A:[130]A
  69. 386 B[178]200:[129] A[178]40 [164] 200:B[178]B[171]1:[151] 53248,B:[130]A
  70. 388 B[178]150:[129] A[178]106 [164] 148:B[178]B[171]1:[151] 53249,B:[130]A
  71. 390 [143] END OF MOVEMENT
  72. 400 [153]
  73. 405 [153]" (null)O THAT IS WHAT THE CHARACTER FINDER
  74. 406 PRINT" LOOKS LIKE AND HOW IT MOVES, FINALLY"
  75. 407 PRINT" WE COME TO THE LAST OPTION WHICH ISN'T"
  76. 408 PRINT" TOO HARD TO WORK OUT, QUITTING THE"
  77. 409 PRINT" UTILITY WOULD BE QUICKER TO PRESS F7"
  78. 410 PRINT" THAN [210][213][206][211][212][207][208]/[210][197][211][212][207][210][197].
  79. 415 [153]
  80. 420 [153]"  PRESS SPACEWAIT TO LOAD MAIN UTILITY"
  81. 425 [161] A$:[139] A$[178]""[167] [137] 425
  82. 500 [153]"LOAD":[151] 53269,0
  83. 510 [153]" (null)OW YOU KNOW THE MEMORY SCANNER AND "
  84. 520 [153]" IT'S CAPABILITIES YOU CAN LOAD THE "
  85. 530 [153]" ACTUAL PROGRAM IN BY LOADING A FILE "
  86. 540 [153]" CALLED '(null)VAL(null) (null)LENATN(null)'.
  87. 545 PRINT
  88. 550 PRINT
  89. 560 PRINT"            [199] O O D B Y E"
  90. 1000 DATA 45,W,46,E,47,L,48,C,49,O,50,M,51,E
  91. 1001 DATA 53,T,54,O,56,T,57,H,58,E
  92. 1002 DATA 60,O,61,N,62,E,64,A,65,N,66,D
  93. 1003 DATA 68,O,69,N,70,L,71,Y
  94. 1004 DATA 129,MEMORY,136,SCANNER,144,1990
  95. 1006 DATA 212,BY,215,LEE,219,BAMBER
  96. 1007 DATA 1001,END
  97.